home *** CD-ROM | disk | FTP | other *** search
/ Word Perfect Main Street: Paper Planes / WordPerfect Main Street - Paper Planes.iso / mac / p29-32 / 00035_Script_35 < prev    next >
Text File  |  1994-07-31  |  542b  |  24 lines
  1. on mouseDown
  2.   global theVCRButtons
  3.   mCancelPlay(theVCRButtons)
  4.   mCancelFastFwd(theVCRButtons)
  5.   
  6.   global Descrip
  7.   buttonDown(Descrip, the number of cast "DescNorm", the number of cast "DescHiLite")
  8. end
  9.  
  10. on mouseUp
  11.   global Descrip
  12.   set test = buttonUp(Descrip)
  13.   if test then
  14.     global Plane
  15.     sound playFile 1, the pathname & "P" & string(Plane) & ":Audio:Descrip.aif"
  16.     repeat while soundBusy(1)
  17.       if the mouseDown then
  18.         sound stop 1
  19.         exit repeat
  20.       end if
  21.     end repeat
  22.   end if
  23. end
  24.